home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / ab20 / datacomm / vltjr504.lzh / rexx / SetPing.rexx < prev    next >
OS/2 REXX Batch file  |  1990-08-02  |  420b  |  22 lines
  1. /** SetPing.rexx
  2. *
  3. *   Set up the PingServer with a nice chime.
  4. *   Requires 'Ping'. This macro is usually run in the startup-sequence.
  5. *
  6. **/
  7. if ~show('l','rexxarplib.library') then addrexxlib
  8. /*
  9. *   Run Ping:
  10. */
  11. address command 'ping'
  12. /*
  13. *   Wait until its port appears
  14. */
  15. do i = 1 to 20
  16.    if ~showlist('p', 'PingServer') then call delay 20
  17.    else leave i
  18. end
  19.  
  20. call sendparsed('PingServer', SET, 1000, 5000, 64)
  21. exit
  22.